home *** CD-ROM | disk | FTP | other *** search
- record array(a,b,c,d,e,f,g)
-
- procedure p1()
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i =:= 9 ----> ",image(i =:= 9) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i =:= 10 ----> ",image(i =:= 10) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i =:= 11 ----> ",image(i =:= 11) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i >=:= 9 ----> ",image(i >=:= 9) | "none")
- end
-
- procedure p2()
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i >=:= 10 ----> ",image(i >=:= 10) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i >=:= 11 ----> ",image(i >=:= 11) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i >:= 9 ----> ",image(i >:= 9) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- end
-
- procedure p3()
- write("i >:= 10 ----> ",image(i >:= 10) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i >:= 11 ----> ",image(i >:= 11) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i <=:= 9 ----> ",image(i <=:= 9) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i <=:= 10 ----> ",image(i <=:= 10) | "none")
- write("i ----> ",image(i) | "none")
- end
-
- procedure p4()
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i <=:= 11 ----> ",image(i <=:= 11) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i <:= 9 ----> ",image(i <:= 9) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i <:= 10 ----> ",image(i <:= 10) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i <:= 11 ----> ",image(i <:= 11) | "none")
- end
-
- procedure p5()
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i ~=:= 9 ----> ",image(i ~=:= 9) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i ~=:= 10 ----> ",image(i ~=:= 10) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i ~=:= 11 ----> ",image(i ~=:= 11) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- end
-
- procedure p6()
- write("i +:= 9 ----> ",image(i +:= 9) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i +:= 10 ----> ",image(i +:= 10) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i +:= 11 ----> ",image(i +:= 11) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i -:= 9 ----> ",image(i -:= 9) | "none")
- write("i ----> ",image(i) | "none")
- end
-
- procedure p7()
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i -:= 10 ----> ",image(i -:= 10) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i -:= 11 ----> ",image(i -:= 11) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i *:= 9 ----> ",image(i *:= 9) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i *:= 10 ----> ",image(i *:= 10) | "none")
- end
-
- procedure p8()
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i *:= 11 ----> ",image(i *:= 11) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i /:= 9 ----> ",image(i /:= 9) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i /:= 10 ----> ",image(i /:= 10) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- end
-
- procedure p9()
- write("i /:= 11 ----> ",image(i /:= 11) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i %:= 9 ----> ",image(i %:= 9) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i %:= 10 ----> ",image(i %:= 10) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i %:= 11 ----> ",image(i %:= 11) | "none")
- write("i ----> ",image(i) | "none")
- end
-
- procedure p10()
- write("i := 10 ----> ",image(i := 10) | "none")
- write("i ^:= 9 ----> ",image(i ^:= 9) | "none")
- write("i ----> ",image(i) | "none")
- write("i := 10 ----> ",image(i := 10) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s <<:= \"x\" ----> ",image(s <<:= "x") | "none")
- end
-
- procedure p11()
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s <<:= \"xx\" ----> ",image(s <<:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s <<:= \"X\" ----> ",image(s <<:= "X") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s <<:= \"abc\" ----> ",image(s <<:= "abc") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- end
-
- procedure p12()
- write("s ~==:= \"x\" ----> ",image(s ~==:= "x") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ~==:= \"xx\" ----> ",image(s ~==:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ~==:= \"X\" ----> ",image(s ~==:= "X") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ~==:= \"abc\" ----> ",image(s ~==:= "abc") | "none")
- write("s ----> ",image(s) | "none")
- end
-
- procedure p13()
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ?:= \"x\" ----> ",image(s ?:= "x") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ?:= \"xx\" ----> ",image(s ?:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ?:= \"X\" ----> ",image(s ?:= "X") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ?:= \"abc\" ----> ",image(s ?:= "abc") | "none")
- end
-
- procedure p14()
- write("s ----> ",image(s) | "none")
- write("s ?:= s ----> ",image(s ?:= s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ==:= \"x\" ----> ",image(s ==:= "x") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ==:= \"xx\" ----> ",image(s ==:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ==:= \"X\" ----> ",image(s ==:= "X") | "none")
- write("s ----> ",image(s) | "none")
- end
-
- procedure p15()
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ==:= \"abc\" ----> ",image(s ==:= "abc") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s >>=:= \"x\" ----> ",image(s >>=:= "x") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s >>=:= \"xx\" ----> ",image(s >>=:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s >>=:= \"X\" ----> ",image(s >>=:= "X") | "none")
- end
-
- procedure p16()
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s >>=:= \"abc\" ----> ",image(s >>=:= "abc") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s >>:= \"x\" ----> ",image(s >>:= "x") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s >>:= \"xx\" ----> ",image(s >>:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- end
-
- procedure p17()
- write("s >>:= \"X\" ----> ",image(s >>:= "X") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s >>:= \"abc\" ----> ",image(s >>:= "abc") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s <<=:= \"x\" ----> ",image(s <<=:= "x") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s <<=:= \"xx\" ----> ",image(s <<=:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- end
-
- procedure p18()
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s <<=:= \"X\" ----> ",image(s <<=:= "X") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s <<=:= \"abc\" ----> ",image(s <<=:= "abc") | "none")
- write("s ----> ",image(s) | "none")
- write("s >>:= 0 ----> ",image(s >>:= 0) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ++:= \"x\" ----> ",image(s ++:= "x") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- end
-
- procedure p19()
- write("s ++:= \"xx\" ----> ",image(s ++:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ++:= \"X\" ----> ",image(s ++:= "X") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s ++:= \"abc\" ----> ",image(s ++:= "abc") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s --:= \"x\" ----> ",image(s --:= "x") | "none")
- write("s ----> ",image(s) | "none")
- end
-
- procedure p20()
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s --:= \"xx\" ----> ",image(s --:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s --:= \"X\" ----> ",image(s --:= "X") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s --:= \"abc\" ----> ",image(s --:= "abc") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s **:= \"x\" ----> ",image(s **:= "x") | "none")
- end
-
- procedure p21()
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s **:= \"xx\" ----> ",image(s **:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s **:= \"X\" ----> ",image(s **:= "X") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s **:= \"abc\" ----> ",image(s **:= "abc") | "none")
- write("s ----> ",image(s) | "none")
- write("c := 'abcd' ----> ",image(c := 'abcd') | "none")
- end
-
- procedure p22()
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s **:= \"xx\" ----> ",image(s **:= "xx") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s **:= \"X\" ----> ",image(s **:= "X") | "none")
- write("s ----> ",image(s) | "none")
- write("s := \"x\" ----> ",image(s := "x") | "none")
- write("s **:= \"abc\" ----> ",image(s **:= "abc") | "none")
- write("s ----> ",image(s) | "none")
- write("c ++:= 'de' ----> ",image(c ++:= 'de') | "none")
- end
-
- procedure p23()
- write("c --:= 'a' ----> ",image(c --:= 'a') | "none")
- write("c **:= 'd' ----> ",image(c **:= 'd') | "none")
- write("s := [1,2,3] ----> ",image(s := [1,2,3]) | "none")
- write("s |||:= s ----> ",image(s |||:= s) | "none")
- write("s |||:= s ----> ",image(s |||:= s) | "none")
- write("one := [1] ----> ",image(one := [1]) | "none")
- write("two := [2,2] ----> ",image(two := [2,2]) | "none")
- write("x := one ----> ",image(x := one) | "none")
- write("x &:= one ----> ",image(x &:= one) | "none")
- write("x ----> ",image(x) | "none")
- write("x := one ----> ",image(x := one) | "none")
- end
-
- procedure p24()
- write("x &:= two ----> ",image(x &:= two) | "none")
- write("x ----> ",image(x) | "none")
- write("x := one ----> ",image(x := one) | "none")
- write("x |||:= one ----> ",image(x |||:= one) | "none")
- write("x ----> ",image(x) | "none")
- write("x := one ----> ",image(x := one) | "none")
- write("x |||:= two ----> ",image(x |||:= two) | "none")
- write("x ----> ",image(x) | "none")
- write("x := one ----> ",image(x := one) | "none")
- write("x ===:= one ----> ",image(x ===:= one) | "none")
- write("x ----> ",image(x) | "none")
- end
-
- procedure p25()
- write("x := one ----> ",image(x := one) | "none")
- write("x ===:= two ----> ",image(x ===:= two) | "none")
- write("x ----> ",image(x) | "none")
- write("x := one ----> ",image(x := one) | "none")
- write("x ~===:= one ----> ",image(x ~===:= one) | "none")
- write("x ----> ",image(x) | "none")
- write("x := one ----> ",image(x := one) | "none")
- write("x ~===:= two ----> ",image(x ~===:= two) | "none")
- write("x ----> ",image(x) | "none")
- end
-
- procedure main()
- p1()
- p2()
- p3()
- p4()
- p5()
- p6()
- p7()
- p8()
- p9()
- p10()
- p11()
- p12()
- p13()
- p14()
- p15()
- p16()
- p17()
- p18()
- p19()
- p20()
- p21()
- p22()
- p23()
- p24()
- p25()
- end
-
- global i, s, c, one, two, x
-